      MODULE rdensity_cal_I   
      INTERFACE
!...Translated by Gediminas Gaigalas 11/18/19
      SUBROUTINE rdensity_cal(NAME)
      USE vast_kind_param,ONLY: DOUBLE
      CHARACTER*24, INTENT(IN) :: NAME
      END SUBROUTINE  
      END INTERFACE 
      END MODULE 
